0 DATA32,62,C6,4,BD,3,36,DE,B9,DC,2C,34,46,BD,16,AC,DE,78,DF,2C,9D,B2,DE,B9,C6,AF,34,44,8D,00,32,62,EE,61,11,93,B9,27,5,C6,19,7E,3,53,EE,65,DF,B9,BD,8,1A,BD,1C,C8,27,7,EE,63,DF,2C,7E,2A,ED,EE,61,32,67,DF,B9,7E,2A,ED
1 FORI=&HA000TO&HA047:READA$:POKEI,VAL("&H"+A$):NEXT:POKE&H6234,&HA0:POKE&H6235,0:POKE&H237,&HA0:POKE&H6238,&H1E